home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Scene Storm
/
Scene Storm - Volume 1.iso
/
coding
/
asm
/
utils
/
killcard
/
killcard.s
< prev
Wrap
Text File
|
1980-01-03
|
873b
|
38 lines
ResourceList = $150
_LVORemResource = -$1EC
_LVORemTask = -$120
_LVOFindTask = -$126
_LVORemIntServer = -$AE
_LVODeleteMsgPort = -$2A0
Kill_Card: move.l 4.w,a6
move.l ResourceList(a6),a5
moveq #40-1,d7 * only check 40 resources..
find_card: move.l 10(a5),a4 * ptr to name of resource
cmp.l #'card',(a4)
beq.b card_found
move.l (a5),a5 * ptr to next resorce in chain.
dbra d7,find_card
nofix: rts
card_found: move.l a5,a1
lea $62(a1),a1
jsr _LVORemIntServer(a6) * kill card interrupt
move.l a5,a1
jsr _LVORemResource(a6) * kill card resource
lea CardRes.txt(pc),a1
jsr _LVOFindTask(a6)
move.l d0,a1
jsr _LVORemTask(a6) * remove resource task
lea CardDev.txt(pc),a1
jsr _LVOFindTask(a6)
move.l d0,a1
jmp _LVORemTask(a6) * remove device task
CardRes.txt: dc.b 'card.resource',0
CardDev.txt: dc.b 'carddisk.device',0